-- background: 21634 from stack: in
-- bmap block id: 22815
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  global identification, plotdata
  push recent card
  if plotdata is "true" then
    click at 211,329
    click at 87,327
    click at 312,326
  end if
  put "false" into plotdata
end openBackground


function frameheight
return 265
end frameheight

function framewidth
return 150
end framewidth

function framebottom
return 295
end framebottom

function frameleft
return 258
end frameleft



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=475 top=309 right=337 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=261 top=311 right=336 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to card id 14428
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=230 top=311 right=336 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=313 right=342 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=187 top=316 right=342 bottom=228
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clear
----- HyperTalk script -----
on mouseUp
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp
  clearScreen
  reset paint
  choose browse tool
  set userLevel to saveLevel
  put empty into field "label"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=65 top=313 right=342 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: plot
----- HyperTalk script -----
on mouseUp
  global identification, ages
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp

  reset paint
  choose rect tool
  set lineSize to 1
  set filled to true

  put (frameLeft()-225) into horiz
  set cursor to 4 -- watchCursor
  put identification into field "label"
  repeat with i = 1 to ages
    put (frameBottom()+3) into yaxis
    get line i of field "height" in card identification

    if (it < 49) or (it >145) then next repeat
    put it into height

    put round((height-50)*1.85) into heightsplot
    get line i of field "weight" in card identification
    put it into weight
    put round((weight)*5.47) into weightplot
    if it is not empty then
      add horiz to heightsplot
      subtract weightplot from yaxis
      set pattern to 12
      drawPlot heightsplot,yaxis
    end if
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp






-- part 7 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=295 top=313 right=342 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: plot
----- HyperTalk script -----
on mouseUp
  global identification, ages
  put the userLevel into saveLevel
  if the userLevel < 3 then set userLevel to 3 -- "Painting"
  if the userLevel < 3 then exit mouseUp

  reset paint
  choose rect tool
  set lineSize to 1
  set filled to true

  put frameLeft() into horiz
  set cursor to 4 -- watchCursor
  put identification into field "label"
  put field "minimum interval" in card identification into minimum
  put (minimum/12) into minimum
  repeat with i = ages down to 1
    put frameBottom() into yaxis
    get line i of field "age" in card identification

    if it < 1 then next repeat
    put it into years
    put (ages-(ages-i)-1) into start
    repeat with j= start down to 1
      put line j of field "age" in card identification into years1
      if (years-years1) < minimum then next repeat
      if (years-years1) >= minimum then exit repeat

    end repeat

    put ((years+years1)/2) into years
    if years < 1 then next repeat
    put round((years-1)*14.5) into yearsplot
    get line i of field "growth velocity" in card identification
    put it into height1
    put round((height1)*13.5) into heightplot
    if it is not empty then
      add horiz to yearsplot
      subtract heightplot from yaxis
      set pattern to 12
      drawPlot yearsplot,yaxis
    end if
  end repeat
  reset paint
  choose browse tool
  set userLevel to saveLevel
end mouseUp






-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=271 top=24 right=38 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: label